Sortowanie bąbelkowe

[wjatek]

Funkcja, która sortuje tablicę jednowymiarową.

Wiem, że są gotowe, ale może komuś się do czegoś przyda, więc wrzucam.

 

 

 

#include <Array.au3>

Dim $tab[12] = [4, 2, 5, 1, 7, 8, 99, 34, 45, 46, 13, 17]


Func sort($array)
	Local $len = UBound($array, 1)
	Local $copy, $y, $x
	Local $x = 0
	For $y = 0 To $len - 1
		$x = 0
		While $x < $len - 1 - $y
			If $array[$x+1] < $array[$x] Then
				$copy = $array[$x]
				$array[$x] = $array[$x+1]
				$array[$x+1] = $copy
			EndIf
			$x += 1
		WEnd
	Next
	Return $array
EndFunc

$arr = sort($tab)

_ArrayDisplay($arr)